home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / flpt c64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  55 lines
  1. 10 rem ************************************************
  2. 20 rem *                                              *
  3. 30 rem *   programm zum umwandeln von zahlen in die   *
  4. 40 rem *   c 64-formate   mflpt  (ab $6000)           *
  5. 50 rem *                   flpt  (ab $6010)           *
  6. 60 rem *                                              *
  7. 70 rem *       heimo ponnath  hamburg  1986           *
  8. 80 rem *                                              *
  9. 90 rem ************************************************
  10. 100 rem
  11. 110 printchr$(147)"ist der smon ab $c000 schon eingeladen  (j/n)";:inputa$
  12. 120 if a$<>"j" then print"wuensche guten absturz...oder smon laden!":end
  13. 130 for i=0 to 17:rem einlesen des maschinenprogrammes
  14. 140 read d:poke 828+i,d
  15. 150 next i
  16. 160 rem -------- das maschinenprogramm ------------
  17. 170 data 162,000    :rem ldx #$00     ;lsb zieladresse
  18. 180 data 160,096    :rem ldy #$60     ;msb    -"-
  19. 190 [131] 032,212,187:[143] jsr $bbd4    ;fac -> (x/y)
  20. 200 [131] 162,006    :[143] ldx #$06     ;zaehler einrichten
  21. 210 [131] 181,096    :[143] lda $60,x    ;fac auslesen
  22. 220 [131] 157,015,096:[143] sta $600f,x  ;und uebertragen
  23. 230 [131] 202        :[143] dex          ;zaehler -1
  24. 240 [131] 208,248    :[143] bne $033d    ;weiter bis fac uebertragen ist
  25. 250 [131] 096        :[143] rts          ;zurueck ins basicprogramm
  26. 260 [143]
  27. 270 [143] -------- usr-vektor auf $828 richten -----
  28. 280 [143]
  29. 290 [151] 785,60 :[143] lsb des usr-vektors
  30. 300 [151] 786,3  :[143] msb desselben
  31. 310 [143]
  32. 320 [143] -------- eingaben und usr-aufruf ----------
  33. 330 [143]
  34. 340 [153] [199](147):[133]"zahl eingeben";a
  35. 350 b[178][183](a):[143] b ist nur ein dummy
  36. 360 [143]
  37. 370 [143] ----- progr.direktmodus : monitoraufruf -----
  38. 380 [153][199](147)[199](17)
  39. 390 [153]"sys49152"[199](17)[199](17)[199](17)[199](17)
  40. 400 [153]" m 6000 6001"[199](17):[143] hier liegt die zahl im mflpt-format
  41. 410 [153]" m 6010 6011"[199](17):[143] und hier im flpt-format
  42. 420 [153]" x"[199](17)
  43. 430 [153]"run490"
  44. 440 [153][199](19);
  45. 450 [151]631,13
  46. 460 [151]198,1:[128]
  47. 470 [143] ---------------------------------------------
  48. 480 [143]
  49. 490 [153]:[153]"ab $6000 mflpt-format"
  50. 500 [153]"ab $6010 flpt-format"
  51. 510 [153]:[133]"weitere zahlen (j/n)";a$
  52. 520 [139] a$[178]"j" [167] 340
  53. 530 [151] 785,72:[151] 786,178:[143] usr-vektor auf normalwert
  54. 540 [128]
  55.